HaCKeRz Kr0nlcKLeZ 1/HaCKeRz Kr0nlcKLeZ.iso/scriptz/sd3240b5.exe/_SETUP.1/aliases.ini

INI File | 1997-03-15 | 32.0 KB | 661 lines

[Aliases]
n0=/lagtest /.ctcp $me PING
n1=op /mode # +ooo $$1 $2 $3
n2=dop /mode # -ooo $$1 $2 $3
n3=j /join #$$1
n4=p /part #
n5=n /names #$$1
n6=w /whois $$1
n7=k /kick # $$1
n8=q /query $$1
n9=hop /part # | /join #$$1
n10=send /dcc send $1 $2
n11=chat /dcc chat $1
n12=ping /ctcp $$1 ping
n13=away {
n14=  if $1 != $null { away *1 | .timer200 off | echo 12 Auto Away deactivated, manual Away set:10 *1 }
n15=  else { .timer200 0 1 if ( $!idle = %idle ) /idle | echo 12 Away Deactivated:2 Auto Away reactivated | away }
n16=}
n17=;------------------=====Function Keys=====----------------
n18=/F1 {
n19=  set %wwwsite $$?="Input Text Site to Access:"
n20=  /www %wwwsite
n21=}
n22=/F2 /enable #sdbot | echo 2 Strange Days Bot is now 10Enabled.
n23=/SF2 /disable #sdbot | echo 2 Strange Days Bot is now 10Disabled.
n24=/F3 { xdccload $$?="Enter offer name to load:" }
n25=/F4 general
n26=/F5 {
n27=  set %www $$?="Input Path of HTML Directory:"
n28=}
n29=/F6 /ignore -r %ignore
n30=/F7 /.timer $+ %rtimer off
n31=/F8 {
n32=  ban -u60 %crtchan %last_join 3
n33=  kick %crtchan %last_join No Porn Trading in #  %ver
n34=  us last_join crtchan
n35=}
n36=/F9 /.ignore *!*@* | window 2 Press 12Shift-F9 2To Disable Total-Ignore | /.timer230 0 60 /ignrwarn
n37=/SF9 /.ignore -r *!*@* | /.timer230 off
n38=/F10 /kick %nick_ison_chan %invitenick Invite This.
n39=/SF10 /join %invitechan
n40=/F11 {
n41=  ban -u180 %crtchan %last_join 3
n42=  kick %crtchan %last_join Bye-Bye...
n43=  unset %crtchan last_join
n44=}
n45=who who *1 | .enable #who
n46=chatme {
n47=  set %loop 1
n48=  :loop
n49=  if %loop > $chat(0) goto end
n50=  if $chat(%loop) == $me { return yes | goto end }
n51=  inc %loop
n52=  goto loop
n53=  :end
n54=}
n55=kban {
n56=  .ruser kick *!*@ $+ $$2
n57=  mode $$1 +b *!*@ $+ $site
n58=  if $$4 == 1 kick $$1 $$3 Channel Flood detected, 30 second ban
n59=  if $$4 == 2 kick $$1 $$3 Swearing is prohibited in this channel, 30 second ban
n60=  if $$4 == 3 kick $$1 $$3 Nick Flood detected, 30 second ban
n61=  if $$4 == 4 kick $$1 $$3 Message exceeds 400 characters, 30 second ban
n62=  .timer 1 30 mode $chan -b *!*@ $+ $$2
n63=}
n64=gets {
n65=  set %result 0
n66=  set %loop 1
n67=  :loop
n68=  if %loop > $send(0) goto end
n69=  if $send(%loop) == $$1 inc %result
n70=  inc %loop
n71=  goto loop
n72=  :end
n73=  return %result
n74=}
n75=in {
n76=  set %loop 1
n77=  set %number 0
n78=  :loop
n79=  if %loop > $ial(*,0) goto end
n80=  if (($ial(*,%loop).host == $$1) && ($ial(*,%loop).nick ison $$2)) { inc %number
n81=  set % $+ $ial(*,%loop).host [ % [ $+ [ $ial(*,%loop).host ] ] ] $+ $ial(*,%loop).nick $+ , $+ $chr(160) }
n82=  inc %loop
n83=  goto loop
n84=  :end
n85=  set %nicks % [ $+ [ $$1 ] ]
n86=  set %letters [ [ [ $len(%nicks) - 2 ] ] ]
n87=  set % $+ $$1 $left(%letters,%nicks) $+ ñ
n88=  unset %nicks | unset %letters
n89=  return %number
n90=}
n91=init {
n92=  :back
n93=  /play -c $me $mircdir $+ startup.txt 10
n94=}
n95=inchan {
n96=  set %loop 1
n97=  set %number 0
n98=  :loop
n99=  if %loop > $ial(*,0) goto end
n100=  if (($ial(*,%loop).host == $$1) && ($ial(*,%loop).nick ison $$2)) inc %number
n101=  inc %loop
n102=  goto loop
n103=  :end
n104=  return %number
n105=}
n106=opin {
n107=  set %loop 1
n108=  :loop
n109=  if %loop > $opnick(0,$$1) goto end
n110=  if $opnick(%loop,$$1) == $me { return true | halt }
n111=  inc %loop
n112=  goto loop
n113=  :end
n114=  return false
n115=}
n116=title  titlebar Strange Days v4.0  ñ $+ Idle time: $duration($idle) $+ ñ
n117=title2  titlebar Strange Days v4.0  ñ $+ Idle time: $duration($idle) $+ ñ Playing Sound: ñ $+ $nopath(%sound) $+ ñ
n118=idle {
n119=  away Idle away: $duration(%idle) of no action
n120=  echo 12 -a ñ2 $+ $me $+ 12ñ Auto-Away activated, no action for2 $duration(%idle)
n121=  if $channel(0) > 0 ame has been away for an idle time of $duration(%idle) ñ $+ Strange Days v4.0 $+ ñ
n122=  .timer200 off
n123=  set %gone %idle
n124=  .timer201 0 1 if ( $!idle < 10 ) /idle2
n125=  .timer202 0 1 inc %gone
n126=}
n127=idle2 {
n128=  echo 12 -a Welcome back2 $me 12ñ2 $+ Away for $duration(%gone) $+ 12ñ
n129=  away
n130=  if $channel(0) > 0 ame Auto Away has been deactivated Total time gone: $duration(%gone) ñ $+ Strange Days v4.0 $+ ñ
n131=  .timer201 off
n132=  .timer202 off
n133=  .timer200 0 1 if ( $!idle == %idle ) /idle
n134=}
n135=general {
n136=  echo 2 -a -=-=-=-=-=-=-=Current setup for ñ10Strange Days2ñ v4.0=-=-=-=-=-=-
n137=  echo 2 -a Whois On Join:12 %whojn
n138=  echo 2 -a Max clones allowed per channel:12 %allowed
n139=  echo 2 -a Swear Protection:12 %swear
n140=  echo 2 -a Channel Protection:12 %channel
n141=  echo 2 -a Auto Rejoin Kicker:12 %ark
n142=  echo 2 -a Dirty Channel Kicker:12 %dck
n143=  echo 2 -a Porn Trading:12 %trd
n144=  echo 2 -a Channel Advertisements:12 %cad
n145=  echo 2 -a Ban Protection:12 %pbp
n146=  echo 2 -a Rejoin After Unban:12 %rab
n147=  echo 2 -a Invite Flood Protection:12 %ifp
n148=  echo 2 -a Notice Flood Protection:12 %pnotfp
n149=  echo 2 -a Message Flood Protection:12 %mfp
n150=  echo 2 -a Auto Away activated after:12 $duration(%idle)
n151=  echo 2 -a Max CTCP's before flood protection activated:12 %flood
n152=  echo 2 -a Kick after a channel flood of12 %chanflood 2messages
n153=  echo 2 -a Kick after a nick flood of12 %nickflood 2nick changes
n154=  echo 2 -a HTML Path:12 %www
n155=  echo 2  -a -=-=-=-=-=-=-=-=-=-=-=-=-=12End of Setup2=-=-=-=-=-=-=-=-=-=-=-=-=-
n156=}
n157=awaylist {
n158=  echo 12 $$1 ñ2Strange Days12ñ Scanning for users who are Away in ñ2 $+ $$1 $+ 12ñ
n159=  set %chan $$1 |  .enable #away |  .raw who $$1 |  set %away 0
n160=}
n161=ircop {
n162=  set %count 0
n163=  set %loop 1
n164=  :count
n165=  if ( $nick(0,$$1) < %loop ) goto next
n166=  if ( $level($address($nick(%loop,$$1),1)) == ircop ) inc %count 1
n167=  inc %loop
n168=  goto count
n169=  :next
n170=  if ( %count == 0 ) goto none
n171=  echo 12 $$1 Listing IRC operators for channel 
2 $+ $$1 $+ 12

n172=  set %loop 1
n173=  :scan
n174=  if ( $nick(0,$$1) < %loop ) goto end
n175=  if ( $level($address($nick(%loop,$$1),1)) == ircop ) echo 2 IRCop: 12 $nick(%loop,$$1)
n176=  inc %loop
n177=  goto scan
n178=  :end
n179=  echo 12 $$1 ñ2Strange Days12ñ List of2 %count 12IRC operator(s) complete
n180=  halt
n181=  :none
n182=  echo 12 $$1 ñ2Strange Days12ñ IRC operators for $$1 $+ : 2None
n183=}
n184=chan {
n185=  set %loop 1
n186=  set %count 0
n187=  :count
n188=  if ( $nick(0,$$1) < %loop ) goto next
n189=  if ( $level($address($nick(%loop,$$1),1)) == ircop ) inc %count 1
n190=  inc %loop
n191=  goto count
n192=  :next
n193=  %ircp = [ 100 ] * [ %count ]
n194=  %chops = [ 100 ] * [ $opnick(0,$$1) ]
n195=  %cnops = [ 100 ] * [ $nopnick(0,$$1) ]
n196=  %cvce = [ 100 ] * [ $vnick(0,$$1) ]
n197=  %cnvce = [ 100 ] * [ $nvnick(0,$$1) ]
n198=  %percirc = [ %ircp ] / [ $nick(0,$$1) ]
n199=  %percops = [ %chops ] / [ $nick(0,$$1) ]
n200=  %percnop = [ %cnops ] / $nick(0,$$1)
n201=  %percvce = [ %cvce ] / $nick(0,$$1)
n202=  %pernvce = [ %cnvce ] / $nick(0,$$1)
n203=  echo 2 -a ñ12Strange Days2ñ $$1 IRCops:12 %count 2(10 %percirc $+ % 2)
n204=  echo 2 -a ñ12Strange Days2ñ $$1 Ops:12 $opnick(0,$$1) 2(10 %percops $+ % 2)
n205=  echo 2 -a ñ12Strange Days2ñ $$1 Non-Ops:12 $nopnick(0,$$1) 2(10 %percnop $+ % 2)
n206=  echo 2 -a ñ12Strange Days2ñ $$1 Voices:12 $vnick(0,$$1) 2(10 %percvce $+ % 2)
n207=  echo 2 -a ñ12Strange Days2ñ $$1 Non-Voices:12 $nvnick(0,$$1) 2(10 %pernvce $+ % 2)
n208=  echo 2 -a ñ12Strange Days2ñ $$1 Total Users:12 $nick(0,$$1)
n209=  echo 2 -a ñ12Strange Days2ñ end of 12 $+ $$1 $+ 2ñ Status
n210=}
n211=clones {
n212=  echo 2 ñ12Strange Days2ñ Searching for clones in ñ12 $+ $$1 $+ 2ñ
n213=  set %loops 1
n214=  set %count 1
n215=  :loop
n216=  if %loops > $nick(%loops,$$1) { goto finish | set %loops 1 }
n217=  if $ial($address($nick(%loops,$$1),2),0) > 1 {
n218=    if $inchan($remove($address($nick(%loops,$$1),2),*!*@),$$1) == $ial($address($nick(%loops,$$1),2),0) {
n219=      if %done [ $+ [ $address($nick(%loops,$$1),2) ] ] == $null { set % $+ clone $+  $remove($address($nick(%loops,$$1),2),*!*@) ñ $+ $nick(%loops,$$1) | set %done $+ $address($nick(%loops,$$1),2) 0  }
n220=      else set % $+ clone $+ $remove($address($nick(%loops,$$1),2),*!*@)  [ % [ $+ [ clone [ $+  [ $remove($address($nick(%loops,$$1),2),*!*@) ] ] ] ] ]  $+ , $+ $chr(160) $+ $nick(%loops,$$1)
n221=      inc %done $+ $address($nick(%loops,$$1),2)
n222=      if %done [ $+ [ $address($nick(%loops,$$1),2) ] ] == $ial($address($nick(%loops,$$1),2),0) {
n223=        echo 2 Clone set 10 $+ %count $+ :12 % [ $+ [ clone [ $+ [ $remove($address($nick(%loops,$$1),2),*!*@) ] ] ] ] $+ ñ
n224=        echo 2 Cloning Address: ñ14 $+ $remove($address($nick(%loops,$$1),2),*!*@) $+ 2ñ
n225=      inc %count }
n226=    }
n227=  }
n228=  inc %loops | goto loop
n229=  :finish
n230=  unset %clone*
n231=  unset %done*
n232=  set %count [ [ %count ] - 1 ]
n233=  if %count != $null echo 2 ñ12Strange Days2ñ Total:12 %count 2clone set(s) in ñ12 $+ $$1 $+ 2ñ
n234=  unset %count
n235=}
n236=;======================[Basic Stuff]========================
n237=/us  /unset % [ $+ [ $1 ] ] % [ $+ [ $2 ] ] % [ $+ [ $3 ] ] % [ $+ [ $4 ] ] % [ $+ [ $5 ] ] % [ $+ [ $6 ] ]
n238=/p /part #
n239=/n /names #$$1
n240=/q /query $$1
n241=/send /dcc send $1 $2
n242=/chat /dcc chat $1
n243=/ping /ctcp $$1 ping
n244=/b /ban # $1 3
n245=/bk /mode # -o+b %shitnick $address(%shitnick,2) | /kick # %shitnick You Are ShitListed á %ver
n246=/op /mode # +ooo $$1 $2 $3 | /mode # +ooo $$4 $5 $6
n247=/deop /mode # -ooo $$1 $2 $3 | /mode # -ooo $$4 $5 $6
n248=/ping /ctcp $$1 ping
n249=/o /onotice # 1,1á16,1[8,5O11,5-3,5N11,5o13,5T15,5i4,5C12,5e16,1]1,1áá16,2 *1
n250=/w /say W00 H00 !!! | /sound woohoo.wav
n251=/l /part
n252=/j /RAW -q JOIN #$1 : $+ *2
n253=/w /whois $1
n254=/ww /whowas $$1
n255=/k /kick # $$1 *2
n256=/q /query $$1
n257=/send /dcc send $1 $2
n258=/chat /dcc chat $1
n259=/top /topic # *1
n260=/to /timers off
n261=/i /invite $$1 #
n262=/m /msg $$1 *2
n263=;=====================[Utility Stuff]=======================
n264=/wlc {
n265=  set %len $len($$1)
n266=  %len = %len - 1
n267=  set % [ $+ [ $$2 ] ] $left(%len,$$1)
n268=}
n269=/back {
n270=  if ( %mynick != $null ) { nick %mynick }
n271=  set %amc off
n272=  .disable #pager #amachine
n273=  set %amc OFF
n274=  .rlevel 8
n275=  unset %mynick
n276=}
n277=/ct {
n278=  set %counter 1
n279=  set %len $len(*1)
n280=  set %text ""
n281=  :loop
n282=  set %colour $rand(1,13)
n283=  set %char $mid(%counter,1,*1)
n284=  if %char == $chr(32) { inc %counter | %text = %text $+ $chr(0160) | goto next }
n285=  if (%colour == 8) || (%colour == 9) || (%colour == 11) { goto loop }
n286=  %text = %text $+  $+ %colour $+ %char
n287=  inc %counter
n288=  :next
n289=  if %counter > %len goto end
n290=  goto loop
n291=  :end
n292=  say %text
n293=}
n294=/window {
n295=  if ( $chr(61) isin $active ) { /dde HEADQ command "" /echo $$1 *2 }
n296=  elseif ( Get isin $active )  { /dde HEADQ command "" /echo $$1 *2 }
n297=  elseif ( Send isin $active ) { /echo $$1 -s *2 }
n298=  else if ( Status isin $active ) { /echo $$1 -s *2 }
n299=  Else { /echo $$1 $active *2 }
n300=}
n301=/d.ban {
n302=  unset %bannedlist
n303=  mode $$2 +b $3
n304=  /.timer 1 $$1 /d.unban $$2 $3
n305=}
n306=/d.unban {
n307=  set %unban $2
n308=  .enable #unban
n309=  mode $$1 b
n310=}
n311=/ifop {
n312=  set %adrlvl $address($$1,4)
n313=  set %adrlvl $mask(%adrlvl,3)
n314=  if ( $$1 isop $2 ) || ( %friendlevel isin $level(%adrlvl) ) { return 200 }
n315=  else { return 1 }
n316=}
n317=/ignrwarn {
n318=  window 2 Total IGNORE is enabled... That means EVERYONE is ignored :)
n319=  window 2 Press 12Shift-F9 2To Disable Total-Ignore
n320=}
n321=/chgawaynick {
n322=  if (%awaysuffix isin $me) goto end
n323=  nick %mynick $+ %awaysuffix
n324=  :end
n325=}
n326=/time {
n327=  if ( $left(1,$time) == 0 || $left(2,$time) == 00 ) {
n328=    %stat.time1 = 12
n329=    %stat.time2 = $token(2,58,$time)
n330=    %stat.time = %stat.time1 $+ : $+ %stat.time2 $+ am
n331=  }
n332=  elseif ( $chr(58) isin $left(2,$time) ) {
n333=    %stat.time1 = $remove($left(2,$time),:)
n334=    %stat.time2 = $token(2,58,$time)
n335=    %stat.time = %stat.time1 $+ : $+ %stat.time2 $+ am
n336=  }
n337=  elseif ( $left(2,$time) == 12 ) {
n338=    %stat.time1 = 12
n339=    %stat.time2 = $token(2,58,$time)
n340=    %stat.time = %stat.time1 $+ : $+ %stat.time2 $+ pm
n341=  }
n342=  elseif ( $token(1,58,$time) > 9  &&  $token(1,58,$time) < 12 ) {
n343=    %stat.time1 = $token(1,58,$time)
n344=    %stat.time2 = $token(2,58,$time)
n345=    %stat.time = %stat.time1 $+ : $+ %stat.time2 $+ am
n346=  }
n347=  else {
n348=    %stat.time1 = $left(2,$time) - 12
n349=    %stat.time2 = $token(2,58,$time)
n350=    %stat.time = %stat.time1 $+ : $+ %stat.time2 $+ pm
n351=  }
n352=}
n353=/filterkick {
n354=  set %count $nick(0,$1)
n355=  set %no_clone 0
n356=  :check
n357=  if ($nick(%count,$1) != $me) {
n358=    set %nick $nick(%count,$1)
n359=    set %luser $address(%nick,0)
n360=    if ($2 iswm %luser || $2 isin %luser) { inc %no_clone | raw -q kick $1 %nick :Mass kick of $2 ( $+ %no_clone $+ ) }
n361=  }
n362=  dec %count
n363=  if (%count > 0) goto check
n364=  us count luser nick
n365=}
n366=/dkb {
n367=  if ( $3 == $null ) {
n368=    mode $$1 -o+b $$2 $address($$2,3)
n369=  kick $$1 $$2 Deop-Kick-Ban}
n370=  else {
n371=    echo $active $$2 $address($$2,3) $$3 $address($$3,3)
n372=    mode $$1 -oo+bb $$2 $$3 $address($$2,3) $address($$3,3)
n373=    kick $$1 $$2 Deop-Kick-Ban
n374=    kick $$1 $$3 Deop-Kick-Ban
n375=  }
n376=}
n377=/checkswear {
n378=  ifop $$1 $2
n379=  if ($result != 200) {
n380=    /.auser 2 $1
n381=    notice $1 No Swearing! (Strike 1)
n382=    /.timer 1 240 /.ruser 2 $1
n383=  }
n384=}
n385=/rban {
n386=  %l = $len($2)
n387=  %l = %l - 1
n388=  %loop = 1
n389=  %newmask = $2
n390=  :start
n391=  %pos = $rand(1,%l)
n392=  %chars = $mid(%pos,2,$$2)
n393=  %firstchar = $left(1,%chars)
n394=  if ( %firstchar == $chr(64) ) || ( %firstchar == $chr(46) ) || ( %firstchar == $chr(33) ) { dec %loop | goto next }
n395=  else {
n396=    %chars2 = $chr(63) $+ $right(1,%chars)
n397=    %newmask = $replace(%newmask,%chars,%chars2)
n398=  }
n399=  :next
n400=  inc %loop
n401=  if ( %loop >= $3 ) goto end
n402=  else goto start
n403=  :end
n404=  mode $$1 +b %newmask
n405=}
n406=/norminit {
n407=  .ignore -r *!*@*
n408=  if ( %pbp == on ) { .enable #dontbanme }
n409=  else { set %pbp off | .disable #dontbanme }
n410=  if ( %rab == on ) { .enable #dis #15 }
n411=  else { set %rab off | .disable #dis #15  }
n412=  if ( %ifp == on ) { .enable #5 }
n413=  else { set %ifp off | .disable #5  }
n414=  if ( %pnotfp == on ) { .enable #9a }
n415=  else { set %pnotfp off | .disable #9a }
n416=  if ( %mfp == on ) { .enable #8 }
n417=  else { set %mfp off | .disable #8 }
n418=  if ( %dccbomb == on ) { .enable #11 #12 #13 }
n419=  else { set %dccbomb off | .disable #11 #12 #13 }
n420=}
n421=/rever %ctcpparms
n422=;--------------========Advertising Checkers=======-------------
n423=/personal.checker {
n424=  %i = 3
n425=  :personal_start
n426=  %tempword = $ [ $+ [ %i ] ]
n427=  if (%tempword == $null) {
n428=    return 10
n429=  }
n430=  if (%tempword isin %checkwords) { goto end }
n431=  else { inc %i
n432=    goto personal_start
n433=  }
n434=  :end
n435=  return 2
n436=}
n437=/trade.checker {
n438=  %i = 3
n439=  :trade_start
n440=  %tempword = $ [ $+ [ %i ] ]
n441=  if (%tempword == $null) { goto end }
n442=  if (%tempword isin %checkwords) {
n443=    ban -u120 $$1 $2 3
n444=    kick $$1 $2 No Porn Trading Is Allowed In This Channel (Strange Days v4.0) | goto end
n445=  }
n446=  else {
n447=    inc %i
n448=    goto trade_start
n449=  }
n450=  :end
n451=}
n452=/ad.checker {
n453=  if (%protectchan iswm %checkwords) || ($$1 isin %checkwords) { goto end }
n454=  %i = 3
n455=  :start
n456=  %temp = $ [ $+ [ %i ] ]
n457=  if (%temp == $null) { goto end }
n458=  if (%temp isin %checkwords) {
n459=    ban -u180 $$1 $$2 3
n460=    kick $$1 $$2 Advertising Is Not Allowed In This Channel (Strange Days v4.0)
n461=  }
n462=  else { inc %i
n463=    goto start
n464=  }
n465=  :end
n466=  return
n467=}
n468=/fserve.checker {
n469=  %i = 1
n470=  :start
n471=  %temp = $ [ $+ [ %i ] ]
n472=  if (%temp == $null) { goto end }
n473=  elseif (%temp isin %checkwords) { return 7 }
n474=  else { inc %i
n475=    goto start
n476=  }
n477=  :end
n478=  return
n479=}
n480=/desync1 /raw -q mode # +bbbbbb 1@1 2@2 3@3 4@4 5@5 6@6 | /raw -q mode # +bbbbbb 7@7 8@8 9@9 10@10 11@11 12@12 | /raw -q mode # +bbbbbb 13@13 14@14 15@15 16@16 17@17 18@18 | /raw -q mode # +bbbbbb 19@19 20@20 21@21 22@22 23@23 24@24 | /raw -q mode # +bbbbbb 25@25 26@26 27@27 28@28 29@29 30@30
n481=/desync2 /raw -q mode # -bbbbbb 1@1 2@2 3@3 4@4 5@5 6@6 | /raw -q mode # -bbbbbb 7@7 8@8 9@9 10@10 11@11 12@12 | /raw -q mode # -bbbbbb 13@13 14@14 15@15 16@16 17@17 18@18 | /raw -q mode # -bbbbbb 19@19 20@20 21@21 22@22 23@23 24@24 | /raw -q mode # -bbbbbb 25@25 26@26 27@27 28@28 29@29 30@30
n482=/massd {
n483=  set %chan #
n484=  set %i 1
n485=  set %num 0
n486=  :start
n487=  set %user $opnick(%i,%chan)
n488=  if (%user == $null) { raw -q mode # -oooooo %nick | echo 2 # 2░14¿10¿2░14║10⌐2º14t10«14┼10±14g2╚ 2D14σ10Ñ2º 2(-)10δ2╫10⌐14║2░10¿14¿2░ Mass Deop On # Complete! | unset %nick | unset %i | unset %chan | unset %num | halt }
n489=  if (%user != $me) { set %nick %user %nick | if (%num == 6) { raw -q mode %chan -oooooo %nick | unset %nick | set %num 0 } }
n490=  inc %i 1
n491=  inc %num 1
n492=  goto start
n493=}
n494=/massk {
n495=  set %i 1
n496=  :start
n497=  set %nick $nick(%i,#)
n498=  if (%nick == $null) { echo 2 # 2░14¿10¿2░14║10⌐2º14t10«14┼10±14g2╚ 2D14σ10Ñ2º 2(-)10δ2╫10⌐14║2░10¿14¿2░ Mass Kick On # Complete! | halt }
n499=  if (%nick != $me) { kick # %nick Strange Days Mass Kick }
n500=  inc %i 1
n501=  goto start
n502=}
n503=/massb {
n504=  set %i 1
n505=  :start
n506=  set %nick $nick(%i,#)
n507=  if (%nick == $null) { echo 2 # 2░14¿10¿2░14║10⌐2º14t10«14┼10±14g2╚ 2D14σ10Ñ2º 2(-)10δ2╫10⌐14║2░10¿14¿2░ Mass Ban On # Complete! | halt }
n508=  if (%nick != $me) { ban # %nick 3 }
n509=  inc %i 1
n510=  goto start
n511=}
n512=/masskb {
n513=  set %i 1
n514=  :start
n515=  set %nick $nick(%i,#)
n516=  if (%nick == $null) { echo 2 # 2░14¿10¿2░14║10⌐2º14t10«14┼10±14g2╚ 2D14σ10Ñ2º 2(-)10δ2╫10⌐14║2░10¿14¿2░ Mass Kick Ban On # Complete! | halt }
n517=  if (%nick != $me) { ban # %nick 3 | kick # %nick Strange Days Mass Kick/Ban }
n518=  inc %i 1
n519=  goto start
n520=}
n521=/rev {
n522=  unset %final
n523=  unset %endreverse
n524=  set %sections $token(0,32,*1)
n525=  :revstart
n526=  if (%sections == 0) goto revend
n527=  set %reverseme $token(%sections,32,*1)
n528=  set %length $len(%reverseme)
n529=  set %backtext $mid(%length,1,%reverseme)
n530=  dec %length 1
n531=  :backstart
n532=  if (%length == 0) goto backend
n533=  set %tempback $mid(%length,1,%reverseme)
n534=  set %backtext %backtext $+ %tempback
n535=  dec %length 1
n536=  goto backstart
n537=  :backend
n538=  set %reversed_text %backtext
n539=  set %temp %reversed_text
n540=  set %final %final %temp
n541=  dec %sections 1
n542=  goto revstart
n543=  :revend
n544=  set %endreverse %final
n545=  say %final
n546=}
n547=ece {
n548=  %c = *1
n549=  set %c $replace(%c,a,4a)
n550=  set %c $replace(%c,b,3B)
n551=  set %c $replace(%c,c,6C)
n552=  set %c $replace(%c,d,7D)
n553=  set %c $replace(%c,e,4e)
n554=  set %c $replace(%c,f,12F)
n555=  set %c $replace(%c,g,13G)
n556=  set %c $replace(%c,h,6H)
n557=  set %c $replace(%c,i,4i)
n558=  set %c $replace(%c,j,J)
n559=  set %c $replace(%c,k,3K)
n560=  set %c $replace(%c,l,L)
n561=  set %c $replace(%c,m,4M)
n562=  set %c $replace(%c,n,6N)
n563=  set %c $replace(%c,o,4o)
n564=  set %c $replace(%c,p,12P)
n565=  set %c $replace(%c,q,Q)
n566=  set %c $replace(%c,r,13R)
n567=  set %c $replace(%c,s,7S)
n568=  set %c $replace(%c,t,T)
n569=  set %c $replace(%c,u,4u)
n570=  set %c $replace(%c,v,V)
n571=  set %c $replace(%c,w,12W)
n572=  set %c $replace(%c,x,7X)
n573=  set %c $replace(%c,y,Y)
n574=  set %c $replace(%c,z,6z)
n575=  set %c $replace(%c,?,12┐15?)
n576=  say %c
n577=  unset %c
n578=}
n579=/splitlooker {
n580=  .timer750 1 30 /unset %split
n581=  .timer751 1 30 /unset %splitlist
n582=  if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
n583=    set %split2 $token(1,46,$parm2)
n584=    set %split $token(1,46,$parm1)
n585=    if %split !isin %splitlist {
n586=      set %splitlist %splitlist %split
n587=      window 2 *** Netsplit: 10ñ $+ %split $+ / $+ %split2 $+ ñ  2░14¿10¿2░14║10⌐2º14t10«14┼10±14g2╚ 2D14σ10Ñ2º10⌐14║2░10¿14¿2░
n588=    }
n589=  }
n590=}
n591=d.nickserv.login {
n592=  if ($token(0,44,%NickServ) != $null) {
n593=    %count = $token(0,44,%NickServ)
n594=    :identifyNick
n595=    %nickparms = $token(%count,44,%NickServ)
n596=    if ($me isin %nickparms) {
n597=      msg NickServ identify $remove(%nickparms,$me)
n598=    }
n599=    dec %count
n600=    if (%count > 0) goto identifyNick
n601=  }
n602=}
n603=tmo { set %i 0 | set %tmo 0 | :start | inc %i | if (%file [ $+ [ %i ] ] == $null) goto next | %tmo = %tmo + $lof(%file [ $+ [ %i ] ] ) | goto start | :next | %tmo2 = %tmo / 1000000 | %tmo1 = %tmo % 1000000 | if ($len(%tmo1) < 7) set %tmo1 1 | %tmo2 = %tmo2 $+ . $+ $left(1,%tmo1) | halt }
n604=xdcc { if ($1 == on) { .disable #fserve | set %fserve off | set %xdccs on | .enable #xdcc | .enable #xdccmsg | halt } | if ($1 == off) { set %xdccs off | .disable #xdcc | .disable #xdccmsg | halt } | if (($1 == file) && ($2 != $null)) set %file [ $+ [ $2 ] ] $dir="Select File for Pack [ $2 ] "  *.* | if (($1 == desc) && ($2 != $null)) { set %filedesc [ $+ [ $2 ] ] $?="Pack Description for [ [ $2 ] $+ ] :" | tmo } | if (($1 == note) && ($2 != $null)) set %fcomment [ $+ [ $2 ] ] $?="Comment for [ $2 ] " }
n605=kps { if ($len($1) > 3) %cpsget = $remove($1,$right(3,$1)) $+ . $+ $left(2,$right(3,$1)) | else %cpsget = 0 $+ . $+ $1 | return %cpsget }
n606=checksend { set %i 0 | :start | inc %i | if ($send(%i) == $null) halt | if (($send(%i) == $1) && ($send(%i).file == $2) && ($send(%i).status == waiting)) { close -s $1 $2 | raw -q notice $1 :Timeout: $2 | echo %c -a %h One or more DCC SENDs to $1 have timed out. | halt } | goto start }
n607=pmin { if (($1 == $null) || ($2 == $null) || ($1 > %numpacks)) halt | if ($2 == 0) { unset %minsp [ $+ [ $1 ] ] | echo %c -a %h Removed minspeed for  $+ %c2 $+ $1 $+ . | halt } | set %minsp [ $+ [ $1 ] ] [ $2 * 1000 ] | echo %c -a %h Minspeed for Pack $1 $+ :  $+ %c2 $+ $2 $+ kb/s. }
n608=minspeed { if ($1 == $null) halt | if ($1 == 0) { set %msall off | unset %allspeed | halt } | set %msall on | %allspeed = $1 * 1000 | echo %c -a %h Minspeed:  $+ %c2 $+ $1 $+ kb/s. }
n609=doffer { set %xdccs off | .disable #xdcc | .disable #xdccmsg | set %msall off | set %allspeed 0 | unset %minsp* | unset %file* | unset %fcomment* | set %record 0 | set %numpacks 0 | set %xdcclist 0 | set %xdccsend 0 | unset %tlmegs | unset %totalmegs | unset %get* | echo %c -a %h All packs removed from offer list. | set %xdccs off | cq }
n610=addpack { %num = %numpacks + 1 | set %get [ $+ [ %num ] ] 0 | set %filedesc [ $+ [ %num ] ] $$?="Pack Description for [ [ %num ] $+ ] :" | set %fcomment [ $+ [ %num ] ] $?="Comment for [ %num ] Press Cancel for None:" | set %file [ $+ [ %num ] ] $dir="Select File for Pack [ %num ] "  *.* | set %numpacks %num | echo %c -a %h  XDCC Pack Number  $+ %c2 $+ [ %num ] $+  has been added. | tmo }
n611=offer { set %record 0 | set %lrecord 0 | set %fserve off | .disable #fserve | set %xdccs on | .enable #xdcc | .enable #xdccmsg | set %numpacks $$?="Number of Packs:" | set %num 0 | :start | inc %num | if (%num > %numpacks) { set %showsum $$?="Show Summary Line? y for Yes, n for No" | echo %c -a %h  XDCC Offer has been set. Type /dcc anytime for DCC status. | tmo } | set %get [ $+ [ %num ] ] 0 | set %filedesc [ $+ [ %num ] ] $$?="Pack Description for [ [ %num ] $+ ] :" | set %fcomment [ $+ [ %num ] ] $?="Comment for [ %num ] Press Cancel for None:" | set %file [ $+ [ %num ] ] $dir="File for Pack [ %num ] "  *.* | goto start }
n612=cq write -c %qpath
n613=fsize { if ($lof(%file [ $+ [ %num ] ] ) < 1000) { %fsize = $lof(%file [ $+ [ %num ] ] ) | set %bc b } | if (($lof(%file [ $+ [ %num ] ] ) >= 1000) && ($lof(%file [ $+ [ %num ] ] ) < 1000000)) { %fsize = $lof(%file [ $+ [ %num ] ] ) / 1000 | set %bc k } | if ($lof(%file [ $+ [ %num ] ] ) > 1000000) { %fsize = $lof(%file [ $+ [ %num ] ] ) / 1000000 | %fsize1 = $lof(%file [ $+ [ %num ] ] ) % 1000000 | %fsize = %fsize $+ . $+ $left(1,%fsize1) | set %bc M } | return %fsize }
n614=psend { if ($3 != $null) write -dl1 %qpath | if ($2 > %numpacks) halt | raw -q notice $1 :Sending you %filedesc [ $+ [ $2 ] ] $+ , which is one file. | inc %get [ $+ [ $2 ] ] | .timer 1 %chsend checksend $1 [ $nopath(%file [ $+ [ $2 ] ] ) ] | if (%minsp [ $+ [ $2 ] ] != $null) { .timer 1 20 checkspeed $nick $nopath(%file [ $+ [ $2 ] ] ) [ %minsp [ $+ [ $2 ] ] ] } | dcc send $1 [ %file [ $+ [ $2 ] ] ] }
n615=nlist { if (%numpacks == 0) halt | if ($1 == $null) set %xc .notice $active | else set %xc .notice $1 | sdcc }
n616=plist { if (%numpacks == 0) halt | if ($1 == $null) set %xc amsg | else set %xc msg $1 | sdcc }
n617=dcc {
n618=  if ($1 == send) { dcc send *2 | halt } | if ($1 == chat) { dcc chat *2 | halt } | if (($send(0) == 0) && ($get(0) == 0)) { echo %c -a %h Nothing on DCC list. | halt } | echo %c -a %h 1, $+ %c3 $+ DnumááááTypeááááNickáááááááStatusááááKpsáááááFilenameááá | if ($get(0) == 0) { set %i 1 | goto send } | if ($send(0) == 0) set %anysends no | set %i 0 | :start | inc %i | unset %barl | if (%i > $get(0)) goto send | %cpsget = $kps($get(%i).cps) | if (($get(%i).cps == n/a) || ($get(%i).cps == 0)) { set %cpsget 0.00 | set %geta4 n/a | goto get1 } | set %geta1 0 | set %geta2 0 | set %geta3 0
n619=  %geta = $get(%i).size - $get(%i).rcvd | %geta = %geta / $get(%i).cps | :etag | if (%geta < 60) goto sec | if ((%geta >= 60) && (%geta < 3600)) goto min | %geta3 = %geta / 3600 | %geta = %geta % 3600 | goto etag | :min | %geta2 = %geta / 60  | %geta = %geta % 60  | goto etag | :sec | if (%geta != 0) set %geta1 %geta | if ((%geta1 >= 0) && (%geta1 < 10)) %geta1 = 0 $+ %geta1 | if ((%geta2 >= 0) && (%geta2 < 10)) %geta2 = 0 $+ %geta2 | %geta4 = %geta3 $+ : $+ %geta2 $+ : $+ %geta1 | :get1
n620=  echo %c -a áááááááá# $+ %i  áááááGETáááá $get(%i) ááá $get(%i).status áá %cpsget ááá $get(%i).file | %barl = $get(%i).pc + 1 | echo %c -a $read -l $+ %barl %path $+ \dccstat.txt $get(%i).pc $+ % áETA %geta4 ( $+ %c2 $+ $get(%i).rcvd $+  of  $+ %c3 $+ $get(%i).size $+  bytes) | goto start | :send | dec %i | set %j 0 | :begin | inc %j | inc %i | unset %barl | if (%j > $send(0)) goto end | %cpssend = $kps($send(%j).cps) | if (($send(%j).cps == n/a) || ($send(%i).cps == 0)) { set %cpssend 0.00 | set %geta4 n/a | goto send1 } | set %geta1 0 | set %geta2 0 | set %geta3 0
n621=  %geta = $send(%j).size - $send(%j).sent | %geta = %geta / $send(%j).cps | :etas | if (%geta < 60) goto secs | if ((%geta >= 60) && (%geta < 3600)) goto mins | %geta3 = %geta / 3600 | %geta = %geta % 3600 | goto etas | :mins | %geta2 = %geta / 60  | %geta = %geta % 60 | goto etas | :secs | if (%geta != 0) set %geta1 %geta | if ((%geta1 >= 0) && (%geta1 < 10)) %geta1 = 0 $+ %geta1 | if ((%geta2 >= 0) && (%geta2 < 10)) %geta2 = 0 $+ %geta2 | %geta4 = %geta3 $+ : $+ %geta2 $+ : $+ %geta1 | :send1
n622=  echo %c -a áááááááá# $+ %i áááááSEND áá $send(%j) áá $send(%j).status áá %cpssend áá $send(%j).file | %barl = $send(%j).pc + 1 | echo %c -a $read -l $+ %barl %path $+ \dccstat.txt $send(%j).pc $+ % áETA %geta4 ( $+ %c2 $+ $send(%j).sent $+  of  $+ %c3 $+ $send(%j).size $+  bytes) | goto begin | :end
n623=}
n624=sdcc {
n625=  %numopen = %maxslots - $send(0) | set %num 0 | :start | inc %num | if (%num > %numpacks) { if (%showsum != y) halt | if (%showsum == y) { set %g 0 | set %totalmegs 0 | set %tlmegs 0 | :begin | inc %g | if (%g <= %numpacks) { %tmegs = %get [ $+ [ %g ] ] * $lof(%file [ $+ [ %g ] ] ) | inc %tlmegs %tmegs | %omegs = $lof(%file [ $+ [ %g ] ] ) | inc %ofmegs %omegs | goto begin } | %totalmegs = %tlmegs / 1000000 | %totalmegs1 = %tlmegs % 1000000 | %totalmegs = %totalmegs $+ . $+ $left(1,%totalmegs1) | %xc Total Offered:  $+ %tmo2 $+ M Total Snagged:  $+ %totalmegs $+ M } | set %xdcc open | halt }
n626=  if ((%num == 1) && (%msall == on)) { %aspeed = %allspeed / 1000 | %xc ** %numpacks packs **   $+ %numopen $+  of  $+ %maxslots $+  slots open, queue:  $+ $lines(%qpath) $+ / $+ %maxqueue $+ . Min:  $+ %aspeed $+ kb/s, Record:  $+ %record $+ kb/s } | if ((%num == 1) && (%msall != on)) %xc ** %numpacks packs **   $+ %numopen $+  of  $+ %maxslots $+  slots open, queue:  $+ $lines(%qpath) $+ / $+ %maxqueue $+ . Record:  $+ %record $+ kb/s | %xc # $+ %num $+  %get [ $+ [ %num ] ] $+ x [ $+ $fsize(%num) $+ %bc $+ ] %filedesc [ $+ [ %num ] ]
n627=  if (%fcomment [ $+ [ %num ] ] == $null) goto start | %xc á^- %fcomment [ $+ [ %num ] ] | goto start
n628=}
n629=xdccload {
n630=  if ($1 == $null) halt | if ($readini %path $+ \xdcc.txt $1 numpacks == $null) { echo %c -a %h No such offer in xdcc save. | halt } | set %i 0 | %numpacks = $readini %path $+ \xdcc.txt $1 numpacks | :start | inc %i | if (%i > %numpacks) { echo %c -a %h XDCC offer  $+ %c2 $+ $1 $+  has been loaded. | xdcc on | halt }
n631=  set %file [ $+ [ %i ] ] $readini %path $+ \xdcc.txt $1 file [ $+ [ %i ] ] | set %filedesc [ $+ [ %i ] ] $readini %path $+ \xdcc.txt $1 desc [ $+ [ %i ] ] | set %get [ $+ [ %i ] ] $readini %path $+ \xdcc.txt $1 get [ $+ [ %i ] ] |  if ($readini %path $+ \xdcc.txt $1 fc [ $+ [ %i ] ] == yes) set %fcomment [ $+ [ %i ] ] $readini %path $+ \xdcc.txt $1 comment [ $+ [ %i ] ] | goto start
n632=}
n633=xdccsave {
n634=  if (($1 == $null) || (%numpacks == 0) || (%numpacks == $null)) halt | set %i 0 | writeini %path $+ \xdcc.txt $1 numpacks %numpacks | :start | inc %i | if (%i > %numpacks) { echo %c -a %h XDCC offer  $+ %c2 $+ $1 $+  has been saved. | halt }
n635=  writeini %path $+ \xdcc.txt $1 file [ $+ [ %i ] ] %file [ $+ [ %i ] ] | writeini %path $+ \xdcc.txt $1 get [ $+ [ %i ] ] %get [ $+ [ %i ] ] | if (%fcomment [ $+ [ %i ] ] != $null) { writeini %path $+ \xdcc.txt $1 comment [ $+ [ %i ] ] %fcomment [ $+ [ %i ] ] | writeini %path $+ \xdcc.txt $1 fc [ $+ [ %i ] ] yes } |  writeini %path $+ \xdcc.txt $1 desc [ $+ [ %i ] ] %filedesc [ $+ [ %i ] ] | goto start
n636=}
n637=checkspeed {
n638=  set %i 0 | :start | inc %i | if ($send(%i) == $null) halt | if ($send(%i) == $1) && ($send(%i).file == $2) {
n639=    if ($send(%i).status == waiting) { raw -q notice $1 :You have DCCs pending. Type /DCC GET $me $+ . | .timer 1 30 checkspeed *1 | halt } | if ($send(%i).cps < $3) { %mstime = $send(%i).cps / 1000 | %msspeed = $3 / 1000 | close -s $1 $2 | raw -q notice $1 :MINSPEED: %mstime $+ kb/sec less than %msspeed $+ kb/sec: Closing connection. | halt }
n640=  }
n641=  goto start
n642=}
n643=pchannels .timer 0 %tc plist $?="enter channel to send plist to (cancel for all):"
n644=poff { .timers off | .timer1 0 60 online }
n645=timelimit %chsend = 60 * $$1
n646=maxslots set %maxslots $$1
n647=qmax set %maxqueue $$1
n648=ptime %tc = $$1 * 60
n649=www {
n650=  .enable #www
n651=  set %cver off
n652=  set %http $remove($1,http://)
n653=  set %https $token(1,47,%http)
n654=  set %httpd $remove(%http,%https)
n655=  set %httpf $token($count(%httpd,/),47,%httpd)
n656=  .dns %https
n657=  raw -q privmsg $me :
DCC CHAT CHAT %httpip 80

n658=}